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TS-2068 CHRISTMAS LABELS 


Bob 


Swoger 


This program will print various Christmas-time address labels 
using a Tasman Printer Interface on your TS-2068 and a Legend-80 
Printer. 


10 


20 


REM CHRISTMAS LABEL GENERATOR 
REM WRITTEN BY GREGORY o, DERTZ & ROBERT E. SWOGER 


NOVEMBER 22,1985 


AO 
SO 
40 
70 
go 
GO 
100 
119 
120 
120 
140 


LET MP=4 

DIM A$(4,36): DIM S(1i2): DIM K{(MF, 4,40): DIM X(4) 
REM THIS IS THE DATA FOR THE UPPER AND LOWER SCROLL 
FOR I=1 TO 12 


READ S(1) 
NEXT I 

DATA 64,32, 48, 24, 28, 28, 28, 28, 24, 48, 32, 64 
LET LC=1 

CLS : PRINT " WELCOME TO THE CHRISTMAS" 


FRINT " RETURN ADDRESS LABEL FPROGRAM.",,, 
PRINT "I WILL FIRST ASK FOR YOUR NAME AND ADDRESS (4 


LINES MAX.), THEN " 


140 
170 
LG 
190 
ZOO 
210 
220 
ea) 
240 


245 


PRINT " PRINT OUT THE NUMBER OF RETURN " 
PRINT “ADDRESS LABELS REQUESTED.",,, 

PRINT "THE FIRST LINE OF THE LABEL WILL" 

PRINT "BE PRINTED EMFHASIZED, THE" 

PRINT “REMAINING THREE LINES WILL BE" 

PRINT “PRINTED COMPRESSED.",,, 

PRINT “ TO USE ME YOU MUST HAVE LABELS" 

PRINT "THAT ARE 1 TO THE INCH AND ARE" 

PRINT “ONE UP ON THE SHEET." 

REM WHILE THE USER IS READ ING THE ABOVE STUFF, START 


READING THE DATA FOR THE PICTURES. 


250 
260 
270 
200 
290 
Boo 
S10 
Jim, 
S20 
S20 
4a 
330 
260 
265 
370 
375 
S80 
SFO 
400 


FOR I=1 TO MP 

FOR Zei TO A 

FOR X=1 TO 40 

READ K(1,J,X) 

NEXT X: NEXT J: NEXT I 

GO SUB 900 

CLS : PRINT “EXAMPLE: ",,,, "MERRY CHRISTMAS",,"John, Mary, 
& Spot", "1234 Any Street": PRINT "This Town, IL 60000",,, 
REM NOW ASK FOR THE RETURN ADDRESS INFO 

FOR I=1 TO A 

PRINT " LINE "sig"? “s: INPUT Gë 

IF G$="" THEN GO TO 365 

LET X(I)=LEN G$: LET A®(I)=G¢ 

PRINT A#(I,1 TO 9) 

NEXT I 

PAUSE 150 

CLS : REM NOW ECHO THE INPUT FOR CONFERMATION. 

FOR I=1 TO 4 

PRINT AS(I,1i TO ) 


410 NEXT I 
: 420 PRINT : RANDOMIZE USR 64719 
f: 430 INFUT "CORRECT? "T$ 
440 IF Té="y" OR Té="¥" OR T$=" YES" THEN GO TO 470 
450 IF Té="n" OR TS="N" OR T#="NO" THEN GO TO 330 
460 GO TO 390 
465 REM THIS SECTION WILL NOW CALCULATE THE LENGTH OF THE 
SCROLL BASED ON THE LENGTH OF THE LONGEST INPUTTED LINE . 
470 LET H=X¢1) 
490 FOR I=2 TO 4 
490 IF (15/27)*(X(1)) 5H THEN LET H=INT ((15/27)#(X¢1))) 
300 NEXT I 
210 LET H=S+¢InT ((2/3)#H)) 
520 IF H22 THEN LET H=22: REM CHECK FOR OVERFLOW 
seo REM NOW FRINT THE LABELS 
530 INFUT "NUMBER OF LABELS TO BE PRINTED? "sN 
S40 PRINT "INSERT LABELS AND LINE UP THE" 
220 PRINT "FIRST LABEL." , 45, 
580 REM NOW CLEAR THE PRINTER AND SET LINE SPACING TO 8/72 INCH 
50 THAT THERE WILL NOT BE SPACES BETWEEN THE LINES OF THE 


PICTURE 
S81 LPRINT CHR® 27;CHR& 27; "@"sCHRS 27;CHR® 27; "A"sCHRS 27; 
Cube (8); 
Én S85 REM NOW THEN PRINT ALL OF THE LABELS 


290 FOR Zei TO N 

600 PRINT “LABEL NO. "ez, 

610 GO SUB 840: REM PRINT THE UPPER SCROLL 

620 FOR L=1 TO 4 

630 LPRINT CHRE 27;CHRS 273 "L"sCHR# (80);CHRS 27sCHRS (0); 
649 FOR C=1 TO 40: REM PRINT PICTURE LINE 

660 LPRINT CHR 27;CHR® (K(LC,L,C))sCHR® 273;CHRS (K(LC,L,C))3 
670 NEXT C 

680 IF L=1 THEN LPRINT CHRE 27;CHRS 273; "E"s: REM PRINT THE 
FIRST LINE EMFHASISED 

690 IF L=2 THEN LPRINT CHR® 27; CHR® 27; "F";CHR® 27: CHR 15; 
CHR 27;CHRS (27)3"G"3: REM PRINT ALL OTHER LINES COMPRESSED 
700 LFRINT AS¢(L) 

710 NEXT L 

720 GO SUB 840: REM NOW PRINT THE LOWER SCROLL. 

725 LET LO=LC+1: REM INCREMENT THE PICTURE 

726 IF LC=MP+1 THEN LET LC=1 


20 LPRINT : LPRINT : LFERINT 
740 LPRINT CHRE 27; CHR 27; "H's: RESTORE : PRINT "PRINTED": 
NEXT Z 
T 790 LPRINT CHR$ 27; CHRE 27;"@";: REM NOW DONE, SO RESET THE 
PRINTER 


BOO INPUT "WOULD YOU LIKE MORE LABELS? "T$ 
810 IF Té="y" OR Té=" 


